home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / edt10.lha / Beispiele / Oberon / Deutsch / EdtOberon-Startup_D.edt < prev    next >
Text File  |  1995-03-08  |  7KB  |  211 lines
  1. /* Konfigurations- und Startup-Datei von Edt */
  2. /* für Amiga Oberon-2 3.11 */
  3. /* J.Barheine, 27.3.94 */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. /* -- Menübelegung -- */
  8.  
  9. 'Menu "Projekt"'
  10. 'Item "neu" KEY amiga "*" "New"'
  11. 'Item "neues Fenster ..." KEY amiga "W" "NewWindow"'
  12. 'Item'
  13. 'Item "öffnen ..." KEY amiga "O" "Open"'
  14. 'Item "speichern" KEY amiga "S" "Save"'
  15. 'Item "speichern als ..." KEY amiga "A" "SaveAs"'
  16. 'Item'
  17. 'Item "einfügen ..." KEY amiga "I" "InsertFile"'
  18. 'Item "drucken ..." "Print"'
  19. 'Item'
  20. 'Item "Über ..." "Information"'
  21. 'Item'
  22. 'Item "beenden" "Quit ALL"'
  23. 'Item "verlassen" KEY amiga "Q" "Quit"'
  24.  
  25. 'Menu "Bearbeiten"'
  26. 'Item "ausschneiden" KEY amiga "X" "Cut"'
  27. 'Item "kopieren" KEY amiga "C" "Copy; Unmark"'
  28. 'Item "einfügen" KEY amiga "V" "Paste"'
  29. 'Item "löschen" KEY ctrl alt "D" "Erase"'
  30. 'Item'
  31. 'Item "speichern ..." "SaveClip"'
  32. 'Item "drucken ..." "PrintClip"'
  33. 'Item'
  34. 'Item "einrücken"'
  35. 'SubItem "1 Zeichen" "ShiftClip 1"'
  36. 'SubItem "2 Zeichen" KEY amiga ">" "ShiftClip 2"'  /* OBERON */
  37. 'SubItem "4 Zeichen" "ShiftClip 4"'
  38. 'SubItem "8 Zeichen" "ShiftClip 8"'
  39. 'Item "ausrücken"'
  40. 'SubItem "1 Zeichen" "ShiftClip (-1)"'
  41. 'SubItem "2 Zeichen" KEY amiga "<" "ShiftClip (-2)"'  /* OBERON */
  42. 'SubItem "4 Zeichen" "ShiftClip (-4)"'
  43. 'SubItem "8 Zeichen" "ShiftClip (-8)"'
  44. 'Item'
  45. 'Item "Ausschnitt-Anfang" KEY amiga "B" "BeginMark"'
  46. 'Item "Ausschnitt-Ende" KEY amiga "E" "EndMark"'
  47. 'Item "Markierung löschen" KEY amiga "U" "UnMark"'
  48. 'Item'
  49. 'Item "alle nochmal" "Redo ALL"'
  50. 'Item "alle rückgängig" "Undo ALL"'
  51. 'Item "nochmal" KEY amiga "!" "Redo"'
  52. 'Item "rückgängig" KEY amiga "Z" "Undo"'
  53.  
  54. 'Menu "Suchen"'
  55. 'Item "suchen ..." KEY amiga "F" "Find"'
  56. 'Item "ersetzen ..." KEY amiga "R" "Replace"'
  57. 'Item'
  58. 'Item "nächstes suchen" KEY amiga "N" "Find NEXT"'
  59. 'Item "vorheriges suchen" KEY amiga "P" "Find PREV"'
  60. 'Item "nächstes ersetzen" KEY alt "N" "Replace NEXT"'
  61. 'Item "vorheriges ersetzen" KEY alt "P" "Replace PREV"'
  62. 'Item'
  63. 'Item "gehen zu ..." KEY amiga "G" "GotoLine"'
  64. 'Item "letzte Änderung" KEY amiga "L" "LastChange"'
  65. 'Item "passende Klammer" KEY amiga "M" "MatchBracket"'
  66.  
  67. 'Menu "Textfalten"'
  68. 'Item "Falte erzeugen" KEY amiga "§" "NewFold CLOSE"'
  69. 'Item "Falte öffnen" KEY amiga "[" "OpenFold"'
  70. 'Item "Falte schließen" KEY amiga "]" "CloseFold"'
  71. 'Item "Falte auflösen" KEY amiga "^" "ResolveFold"'
  72. 'Item'
  73. 'Item "Alle Falten öffnen" "OpenAllFolds"'
  74. 'Item "Alle Falten schließen" "CloseAllFolds"'
  75. 'Item "Alle Falten auflösen" "ResolveAllFolds"'
  76.  
  77. 'Menu "Fenster"'
  78. 'Item "nächstes Fenster" KEY amiga "+" "NextWindow CYCLE; ActivateWindow; WindowToFront"'
  79. 'Item "vorheriges Fenster" KEY amiga "-" "PrevWindow CYCLE; ActivateWindow; WindowToFront"'
  80. 'Item "nächster Text" KEY ctrl "+" "NextText CYCLE; ActivateWindow; WindowToFront"'
  81. 'Item "vorheriger Text" KEY ctrl "-" "PrevText CYCLE; ActivateWindow; WindowToFront"'
  82. 'Item'
  83. 'Item "maximal" "SetWindowBox 0 0 9999 9999"'
  84. 'Item "minimal" "SetWindowBox 20 20 1 1"'
  85. 'Item'
  86. 'Item "horizontal teilen" KEY alt f1 RX "S:Edt/HSplitWin.edt"'
  87. 'Item "vertikal teilen" KEY alt f2 RX "S:Edt/VSplitWin.edt"'
  88. 'Item'
  89. 'Item "aufräumen" KEY alt f3 RX "S:Edt/LayoutWindows.edt"'
  90.  
  91. 'Menu "ARexx"'
  92. 'Item "Makro beginnen ..." KEY alt "B" "BeginMacro"'
  93. 'Item "Makro abschließen" KEY alt "E" "EndMacro"'
  94. 'Item "Makro ausführen" KEY alt "X" "ExecMacro"'
  95. 'Item "Makro vergessen" KEY alt "F" "FreeMacro"'
  96. 'Item "Makro speichern ..." KEY alt "S" "SaveMacro"'
  97. 'Item "Makro zuweisen"'
  98. 'SubItem "Taste F6" KEY shift f6 `SaveMacro "ENVARC:Edt/F6.edt"`'
  99. 'SubItem "Taste F7" KEY shift f7 `SaveMacro "ENVARC:Edt/F7.edt"`'
  100. 'SubItem "Taste F8" KEY shift f8 `SaveMacro "ENVARC:Edt/F8.edt"`'
  101. 'SubItem "Taste F9" KEY shift f9 `SaveMacro "ENVARC:Edt/F9.edt"`'
  102. 'SubItem "Taste F10" KEY shift f10 `SaveMacro "ENVARC:Edt/F10.edt"`'
  103. 'Item'
  104. 'Item "Befehl eingeben ..." KEY esc "EnterRexx"'
  105. 'Item "Befehl wiederholen" KEY ctrl "G" "RepeatRexx"'
  106. 'Item "Programm ausführen ..." KEY ctrl "X" "ExecRexx"'
  107.  
  108. /* OBERON */
  109.  
  110. 'Menu "Oberon"'
  111. 'Item "übersetzen ..." KEY numpad "1" RX "OBERON:rexx/Deutsch/Compile_D.edt"'
  112. 'Item "binden ..." KEY numpad "2" RX "OBERON:rexx/Deutsch/Link_D.edt"'
  113. 'Item "erstellen ..." KEY numpad "3" RX "OBERON:rexx/Deutsch/Make_D.edt"'
  114. 'Item "ausführen ..." KEY enter RX "OBERON:rexx/Deutsch/Execute_D.edt"'
  115. 'Item'
  116. 'Item "erster Fehler" KEY numpad "0" RX "OBERON:rexx/Deutsch/GetFirstErr_D.edt"'
  117. 'Item "nächster Fehler" KEY numpad "+" RX "OBERON:rexx/Deutsch/GetNextErr_D.edt"'
  118. 'Item "vorheriger Fehler" KEY numpad "-" RX "OBERON:rexx/Deutsch/GetPrevErr_D.edt"'
  119. 'Item'
  120. 'Item "Kopf aktualisieren" KEY numpad "*" RX "OBERON:rexx/Deutsch/UpdateHeader_D.edt"'
  121. 'Item "Kopf einfügen" `InsertFile "OBERON:rexx/Deutsch/header_D.txt"`'
  122. 'Item'
  123. 'Item "Einstellungen"'
  124. 'SubItem "Schalter ..." KEY numpad 4 RX "OBERON:rexx/Deutsch/ReqSwitches_D.edt"'
  125. 'SubItem "Überprüfungscode ..." KEY numpad 5 RX "OBERON:rexx/Deutsch/ReqChecking_D.edt"'
  126. 'SubItem "Optionen ..." KEY numpad 6 RX "OBERON:rexx/Deutsch/ReqCCOptions_D.edt"'
  127. 'SubItem "Prozessor ..." KEY numpad 7 RX "OBERON:rexx/Deutsch/ReqProcessor_D.edt"'
  128. 'SubItem'
  129. 'SubItem "als Vorgaben speichern" RX "OBERON:rexx/Deutsch/SaveSettings_D.edt"'
  130.  
  131. /* Einstellungen einlesen */
  132. 'Get INSERT'; insert=RESULT;
  133. 'Get WORDWRAP'; wordWrap=RESULT;
  134. 'Get AUTOINDENT'; autoIndent=RESULT;
  135. 'Get CLEANLINES'; cleanLines=RESULT;
  136. 'Get ICONS'; icons=RESULT;
  137.  
  138. 'Menu "Einstellungen"'
  139. 'Item "einfügen?" SWITCH' insert 'KEY ctrl e "Set INSERT TOGGLE"'
  140. 'Item "Wortumbruch?" SWITCH' wordWrap 'KEY ctrl w "Set WORDWRAP TOGGLE"'
  141. 'Item "automatisch einrücken?" SWITCH' autoIndent 'KEY ctrl a "Set AUTOINDENT TOGGLE"'
  142. 'Item "Zeilen säubern?" SWITCH' cleanLines 'KEY ctrl z "Set CLEANLINES TOGGLE"'
  143. 'Item "Piktogramme?" SWITCH' icons 'KEY ctrl p "Set ICONS TOGGLE"'
  144. 'Item'
  145. 'Item "Bearbeitung ..." "EditPrefs"'
  146. 'Item "Darstellung ..." "DisplayPrefs"'
  147. 'Item'
  148. 'Item "als Vorgaben speichern" KEY amiga D "SaveSettings"'
  149.  
  150. /* -- Tastaturbelegung: -- */
  151.  
  152. 'SetKey left "Move (-1)"'
  153. 'SetKey right "Move 1"'
  154. 'SetKey up "Up"'
  155. 'SetKey down "Down"'
  156. 'SetKey shift left "First"'
  157. 'SetKey shift right "Last"'
  158. 'SetKey shift up "Top"'
  159. 'SetKey shift down "Bottom"'
  160. 'SetKey alt left "WordLeft"'
  161. 'SetKey alt right "WordRight"'
  162. 'SetKey alt up "PageUp"'
  163. 'SetKey alt down "PageDown"'
  164.  
  165. 'SetKey del "Delete"'
  166. 'SetKey shift del "Delete LINEEND"'
  167. 'SetKey ctrl del "DelLines"'
  168. 'SetKey alt del "Delete WORD"'
  169.  
  170. 'Setkey backspace "DelBack"'
  171. 'SetKey shift backspace "DelBack LINEBEGIN"'
  172. 'SetKey alt backspace "DelBack WORD"'
  173.  
  174. 'SetKey f1 "GotoBookmark 0"'
  175. 'SetKey shift f1 "SetBookmark 0"'
  176. 'SetKey f2 "GotoBookmark 1"'
  177. 'SetKey shift f2 "SetBookmark 1"'
  178. 'SetKey f3 "GotoBookmark 2"'
  179. 'SetKey shift f3 "SetBookmark 2"'
  180. 'SetKey f4 "GotoBookmark 3"'
  181. 'SetKey shift f4 "SetBookmark 3"'
  182. 'SetKey f5 "GotoBookmark 4"'
  183. 'SetKey shift f5 "SetBookmark 4"'
  184.  
  185. 'SetKey alt f4 "NewWindow"'
  186. 'SetKey alt f5 "NewWindow; Open"'
  187.  
  188. 'SetKey help `ADDRESS COMMAND "MultiView HELP:deutsch/edt.guide"`'
  189.  
  190. /* Makros: */
  191.  
  192. 'SetKey f6 RX "ENVARC:Edt/F6.edt"'
  193. 'SetKey f7 RX "ENVARC:Edt/F7.edt"'
  194. 'SetKey f8 RX "ENVARC:Edt/F8.edt"'
  195. 'SetKey f9 RX "ENVARC:Edt/F9.edt"'
  196. 'SetKey f10 RX "ENVARC:Edt/F10.edt"'
  197.  
  198. /* Oberon-2: initialize */
  199.  
  200. done=Open(f, "ENVARC:Edt/Oberon2.prefs", "R")
  201. IF ~done THEN exit
  202. processor=ReadLn(f)
  203. options=ReadLn(f)
  204. switches=ReadLn(f)
  205. chk=ReadLn(f)
  206. CALL Close(f)
  207.  
  208. CALL SetClip("Oberon2Processor",processor)
  209. CALL SetClip("Oberon2Options",options)
  210. CALL SetClip("Oberon2Switches",switches)
  211. CALL SetClip("Oberon2Chk",chk)